TPUG - Toronto PET Users Group/TPUG Users Group CD/TPUG Users Group CD.iso/C64/B-Business/(c)b4.d64/colr sel tutor.c

Commodore BASIC | 2007-02-04 | 11KB | 317 lines

5 REM CLEAR SCREEN & TO LOWER CASE
10 :PRINTCHR$(147)CHR$(14)SPC(47);
15 REM TITLE & CREDIT
20 :PRINTCHR$(18)" [195][207][204][207][213][210][160][211][197][204][197][195][212][201][207][206][160][212][213][212][207][210][201][193][204][160]"CHR$(146)SPC(88)
30 PRINT"[195]HARLIE [208]ATERSON     [212]ORONTO  [195]ANADA"SPC(46);
40 :PRINT"[212][208][213][199][160]#2280"SPC(12)"1983 10 03"SPC(88);
45 REM INSTRUCTIONS
50 :PRINT"[212]HE SELECTION OF [195]-64 COLOURS FOR"
60 :PRINT"  BORDER, BACKGROUND, AND CHARACTERS  "
70 :PRINT"  IS DISCUSSED AND ILLUSTRATED IN THIS"
80 :PRINT"  PROGRAM. [193]N ANALYSIS OF THE REACTION "
90 :PRINT"  BETWEEN THE COLOURS IS OUTLINED AND"
100 :PRINT"  RULES ARE SET DOWN FOR THEIR COMBIN-    ATION."
110 :PRINT"    [215]HEN USED WITH MY PROGRAM [195][207][204][207][213][210]  "
120 :PRINT"  [195][207][205][194][201][206][193][212][201][207][206][160][211][197][204][197][195][212][207][210][160]1983 08 08, THE"
130 :PRINT"  SCRUTINY OF THE COLOURS, FOR A PART-"
140 :PRINT"  ICULAR PURPOSE, COULD BE SIMPLIFIED.
160 :[153]"  (null)HE HUNT CAN BE THOROUGH WHILE ALSO
170 :PRINT"  ECONOMICAL IN TIME CONSUPTION.
175 [143] READ-CONTINUE SUBROUTINE (2495)
180 :[141] 2500
185 [143] START TUTORIAL
190 :[153][199](147)[166]47)[199](18)" LEN(null)(null)PEEKRIGHT$(null)RIGHT$(null)CHR$CLOSE(null)LEN(null)VALVAL(null)CLOSELEN(null)(null)(null)(null)(null)(null)CLOSE"[199](146)[166]130);
200 :[153]"(null)HE SIXTEEN COLOURS AVAILABLE FROM
210 :PRINT"  THE [195]-64 MAY EACH BE USED FOR THREE
220 :[153]"  COMPONENT PARTS OF A SCREEN DISPLAY.
230 :PRINT"  [212]HESE ARE THE BORDER, THE BACKGROUND
240 :[153]"  AND THE CHARACTERS PRINTED AGAINST
250 :PRINT"  THIS BACKGROUND.
260 :[153]"    (null)HESE ' LEN(null)(null)(null)(null)(null)(null) ' MAY, TO VARYING
270 :PRINT"  DEGREES, EITHER COMPLEMENT OR BE IN
280 :[153]"  CONFLICT WITH EACH OTHER. (null)HERE ARE
290 :PRINT"  THREE MAIN POINTS OF CONFLICTION IN
300 :[153]"  SCREEN DISPLAYS.
305 REM READ-CONTINUE SUBROUTINE (2495)
310 :GOSUB 2500
315 REM DISCUSSION - PAGE 2
320 :PRINTCHR$(147)SPC(48)CHR$(18)" [208][207][201][206][212][211][160]OF [195][207][206][198][204][201][195][212][201][207][206] "CHR$(146)SPC(91);
330 :PRINT"1) [194]ACKGROUND AND [195]HARACTERS OF THE
340 :[153]"     SAME COLOUR."[166]27)"- (null)O CHARACTERS VISIBLE."[166]94);
350 :[153]"2) LENHOSEN COLOURS UNCOMPEMENTARY TO
360 :PRINT"     EACH OTHER."SPC(30)
370 :PRINT"(A) [194]ORDER AND [194]ACKGROUND."SPC(12)"- [194]LURRED OUTLINING."SPC(62);
380 :PRINT"(B) [194]ACKGROUND AND [195]HARACTERS."SPC(8)"- [195]HARACTERS NOT DISTINCT.
390 :[153]"3) LENHOSEN COLOURS CAUSE A DISCORDANT"[166]7)"DISPLAY."[166]31);
400 :[153]"- (null)HIS MAY BE WHAT YOU ARE LOOKING"[166]8);"FOR!
405 REM READ-CONTINUE SUBROUTINE (2495)
410 :GOSUB 2500
415 REM DISCUSSION - PAGE 3
420 :PRINTCHR$(147)SPC(44)CHR$(18)" [195][207][205][208][204][197][205][197][206][212][193][210][217] [211][195][210][197][197][206][160][196][201][211][208][204][193][217][211][160]"CHR$(146)
430 :PRINTSPC(82)"[215]ILL PRODUCE GOOD CONTRAST FOR"SPC(51)
440 :PRINT"(A) ALL SCREEN COLOUR SHADES FROM"SPC(11);
450 :PRINT"SOFT & LIGHT TO LOUD & DARK.
460 :[153][166]43)"(B) BACKGROUND EMPHASIZING OR DE-"[166]11)
470 :[153]"EMPHASIZING BY THE BORDER."[166]50)
480 :[153]"(C) READABILITY OF THE CHARACTERS.
485 REM READ-CONTINUE SUBROUTINE (2495)
490 :GOSUB 2500
495 REM DISCUSSION PAGE 4
500 :PRINTCHR$(147)SPC(49)CHR$(18)" [199][210][207][213][208][201][206][199][160][212][200][197] [195][207][204][207][213][210][211] "CHR$(146)
510 :PRINTSPC(84)"[197]XPERIMENTING WITH [195]-64 COLOURS"SPC(7);
520 :PRINT"REVEALS THEY CAN BE FORMED INTO FIVE
530 :[153]"  GROUPS, DEPENDING ON THE TENDENCIES
540 :PRINT"  OF THE COLOURS TO BE CONFLICTING.
550 :[153]"    PEEKLACK AND WHITE WORK WELL WITH ALL
560 :PRINT"  COLOURS. [194]UT, AS WITH OTHER COLOURS,
570 :[153]"  THEY CAN NOT BE USED SUCCESSFULLY AS
580 :PRINT"  BOTH BACKGROUND AND CHARACTERS. [212]HEY
590 :[153]"  FORM THE FIRST AND THE LAST OF THESE
600 :PRINT"  COLOUR SETS. [212]HE 14 LEFT MAKE UP THE
610 :[153]"  OTHER THREE SETS. (null)HOUGH THE COLOURS
620 :PRINT"  WITHIN EACH SET ARE NOT COMLEMENTARY
630 :[153]"  TO ONE ANOTHER, THEY MAY BE USED FOR
640 :PRINT"  A BORDER AND CHARACTERS IF SEPARATED
650 :[153]"  BY A BACKGROUND FROM ANOTHER GROUP.
660 :PRINT"  [212]HREE COLOURS, EACH FROM A DIFFERENT
670 :[153]"  SET, CAN BE ASSIGNED IN ANY FORMAT.
675 REM READ-CONTINUE SUBROUTINE (2495)
680 :GOSUB 2500
685 REM DISCUSSION PAGE 5
690 :PRINTCHR$(147)SPC(47)CHR$(18)" [195][207][206][198][204][201][195][212][201][206][199][160][195][207][204][207][213][210][160][199][210][207][213][208][211] "CHR$(146)
700 :PRINTSPC(84)"[212]HE FOLLOWING TABLE LISTS THE SETS
710 :[153]"  OF CONFLICTING COLOURS,IN A SEQUENCE
720 :PRINT"  OF FROM DARKEST TO LIGHTEST.[201]T CAN
730 :[153]"  BE USED ADVANTAGEOUSLY WHEN A SCREEN
740 :PRINT"  COLOUR COMBINATION IS BEING CHOSEN.
750 :[153]"    ATN (null)(null) SET COLOUR COMPATIBILITY MAY
760 :PRINT"  NOT EQUAL THAT OF A [214][201][196][197][207][160][205][207][206][201][212][207][210],
770 :[153]"  SUCH AS A LEN(null)(null)(null)(null)STR$(null)(null)VAL (null)(null)STR$VAL(null)-1701.
775 REM READ-CONTINUE SUBROUTINE (2495)
780 :GOSUB 2500
785 REM COLOUR TABLE SUBROUTINE (2545)
790 :GOSUB 2550
795 REM READ-CONTINUE SUBROUTINE (2495)
800 :GOSUB 2500
810 REM DISCUSSION PAGE 6
820 :PRINTCHR$(147)CHR$(14)
830 :PRINTSPC(45)CHR$(18)" [201][204][204][213][211][212][210][193][212][201][214][197] [211][195][210][197][197][206][160][196][201][211][208][204][193][217][211][160]"CHR$(146)SPC(89)
840 :PRINT"[212]HE FOLLOWING SCREEN DISPLAYS WILL
850 :[153]"  DEMONSTRATE SOME POSSIBLE RESULTS OF
860 :PRINT"  COLOUR SELECTIONS FOR THE BORDERS,
870 :[153]"  BACKGROUNDS, AND CHARACTERS. PEEKAD AND
880 :PRINT"  GOOD WILL BE SEEN. [217]OUR TASTES WILL,
890 :[153]"  NO DOUBT, DESIDE WHICH IS WHICH!
900 :PRINT"    [215]HERE A SINGLE COLOUR IS USED FOR
910 :[153]"  ALL PARTS OF THE SCREEN, BLACKOUTS,
920 :PRINT"  WHITEOUTS, AND WHATEVER COLOUROUTS
930 :[153]"  CHOSEN WILL RESULT. (null)THER DISPLAYS
940 :PRINT"  WILL PRODUCE FUZZY BACKGROUND AND
950 :[153]"  BORDER JUNCTIONS AND/OR UNREADABLE
960 :PRINT"  CHARACTERS. [211]TILL OTHERS SHALL BE
970 :[153]"  EASILY ACCEPTED,RANGING FROM LIGHT
980 :PRINT"  AND GENTLE TO DARK AND BOLD.
985 [143] READ-CONTINUE SUBROUTINE (2495)
990 :[141] 2500
995 [143] 17 COLOUR SCREEN DISPLAYS
1000 :BO[178]0:S1[178]1:BA[178]0:S2[178]1:C[178]0:S3[178]1:CC[178]144
1005 [143] SCREEN COLOUR SUBROUTINE (2745)
1010 :[141] 2750
1020 :[129] X [178] 1 [164] 3000:[130] X
1030 :BO[178]1:S1[178]5:BA[178]1:S2[178]5:C[178]1:S3[178]5:CC[178]5
1035 [143] SCREEN COLOUR SUBROUTINE (2745)
1040 :[141] 2750
1050 :[129] X [178] 1 [164] 3000:[130] X
1060 :BO[178]4:S1[178]3:BA[178]4:S2[178]3:C[178]4:S3[178]3:CC[178]156
1065 [143] SCREEN COLOUR SUBROUTINE (2745)
1070 :[141] 2750
1080 :[129] X [178] 1 [164] 3000:[130] X
1090 :BO[178]11:S1[178]2:BA[178]2:S2[178]2:C[178]6:S3[178]2:CC[178]31
1095 [143] SCREEN COLOUR SUBROUTINE (2745)
1100 :[141] 2750
1110 :[129] X [178] 1 [164] 3000:[130] X
1120 :BO[178]5:S1[178]3:BA[178]10:S2[178]3:C[178]14:S3[178]3:CC[178]154
1125 [143] SCREEN COLOUR SUBROUTINE (2745)
1130 :[141] 2750
1140 :[129] X [178] 1 [164] 3000:[130] X
1150 :BO[178]15:S1[178]4:BA[178]7:S2[178]4:C[178]13:S3[178]4:CC[178]153
1155 [143] SCREEN COLOUR SUBROUTINE (2745)
1160 :[141] 2750
1161 [153]" (null)HE BOY STOOD ON THE BURNING DECK
1162 PRINT" [200]IS FEET WERE COVERED WITH BLISTERS
1163 [153]" ASCLAMES CAME UP AND BURNT OFF HIS PANTS
1164 PRINT"[160][193]ND NOW HE WEARS HIS SISTERS.
1165 [143] HE HAW! HE HAW! HE HAW!
1166 [143] HIS FIRST NAME IS JACK.
1167 [143] HIS SECOND NAME HAS ONE LETTER LESS.
1170 :[129] X [178] 1 [164] 3000:[130] X
1175 [143] SCREEN TO STANDARD COLOUR
1180 :[153][199](147);:[151] 53280,14:[151] 53281,6:[153][199](154):[153][166]90)
1190 :[153]"ATNATNATNATNATNATN(null)(null)(null)(null)(null)CHR$CHR$CHR$CHR$LEFT$LEFT$LEFT$!!":[153][166]92)
1200 :[153]"(null)VALVALCLOSE(null)LEFT$ATN(null)CLOSERIGHT$CLOSE(null)VALATN(null)?"[166]94)"(null)(null)(null)(null)!"[166]10)"(null)(null)(null)(null)!"[166]10)"(null)(null)(null)(null)!"[166]97)
1210 [153]"(null)(null)(null)CLOSE(null)(null)CLOSE(null)(null)(null)(null)(null)."[166]97)"(null)(null)(null)(null)CLOSE(null)(null)(null)VALCLOSE(null)LEFT$VAL(null)VALCLOSE(null)LEFT$VAL(null)CLOSELENATN(null)VALCLOSEASC(null)(null)(null)!"[166]91)
1220 [153]"(null)(null)ATN(null)(null)RIGHT$(null)CHR$CLOSE(null)RIGHT$(null)LEFT$CLOSE(null)LEFT$VALCLOSEPEEK(null)RIGHT$CHR$LEFT$(null)RIGHT$VAL(null)"[166]65)"ATN(null)STR$"[166]66)
1230 :[153]"VAL(null)STR$RIGHT$(null)CHR$CLOSE(null)RIGHT$(null)LEFT$CLOSE(null)LEFT$VALCLOSE(null)LEFT$ATN(null)(null)RIGHT$VAL(null)"
1240 :[129] X [178] 1 [164] 8000:[130] X
1250 :BO[178]7:S1[178]4:BA[178]1:S2[178]5:C[178]13:S3[178]4:CC[178]153
1255 [143] SCREEN COLOUR SUBROUTINE (2745)
1260 :[141] 2750
1270 :[153]" PEEKORDER & LENHARACTERS FROM SET 4"
1280 :[153]" AND PEEKACKGROUND FROM SET 5
1290 :FOR X = 1 TO 10000:NEXT X
1300 :BO=5:S1=3:BA=1:S2=5:C=14:S3=3:CC=154
1305 REM SCREEN COLOUR SUBROUTINE (2745)
1310 :GOSUB 2750
1320 :PRINT" [194]ORDER & [195]HARACTERS FROM SET 3"
1330 :PRINT" AND [194]ACKGROUND FROM SET 5
1340 :[129] X [178] 1 [164] 10000:[130] X
1350 :BO[178]3:S1[178]4:BA[178]14:S2[178]3:C[178]1:S3[178]5:CC[178]5
1355 [143] SCREEN COLOUR SUBROUTINE (2745)
1360 :[141] 2750
1370 :[153]" PEEKORDER FROM SET 4"[166]23)"PEEKACKGROUND FROM SET 3
1380 :PRINT" [195]HARACTERS FROM SET 5
1390 :[129] X [178] 1 [164] 10000:[130] X
1400 :BO[178]12:S1[178]3:BA[178]13:S2[178]4:C[178]5:S3[178]3:CC[178]30
1405 [143] SCREEN COLOUR SUBROUTINE (2745)
1410 :[141] 2750
1420 :[153]" PEEKORDER AND LENHARACTERS FROM SET 3
1430 :PRINT" [194]ACKGROUND FROM SET 4
1440 :[129] X [178] 1 [164] 10000:[130] X
1450 :BO[178]15:S1[178]4:BA[178]12:S2[178]3:C[178]11:S3[178]2:CC[178]151
1455 [143] SCREEN COLOUR SUBROUTINE (2745)
1460 :[141] 2750
1470 :[153]" PEEKORDER FROM SET 4"[166]23)"PEEKACKGROUND FROM SET 3
1480 :PRINT" [195]HARACTERS FROM SET 2"SPC(59)"[193]LL THE [199][210][197][217][211]!
1490 :[129] X [178] 1 [164] 10000:[130] X
1500 :BO[178]2:S1[178]2:BA[178]10:S2[178]3:C[178]6:S3[178]2:CC[178]31
1505 [143] SCREEN COLOUR SUBROUTINE (2745)
1510 :[141] 2750
1520 :[153]" PEEKORDER & LENHARACTERS FROM SET 2
1530 :PRINT" AND [194]ACKGROUND FROM SET 3
1540 :[129] X [178] 1 [164] 10000:[130] X
1550 :BO[178]8:S1[178]3:BA[178]9:S2[178]2:C[178]0:S3[178]1:CC[178]144
1555 [143] SCREEN COLOUR SUBROUTINE (2745)
1560 :[141] 2750
1570 :[153]" PEEKORDER FROM SET 3"[166]23)"PEEKACKGROUND FROM SET 2
1580 :PRINT" [195]HARACTERS FROM SET 1
1590 :[129] X [178] 1 [164] 10000:[130] X
1600 :BO[178]10:S1[178]3:BA[178]0:S2[178]1:C[178]8:S3[178]3:CC[178]129
1605 [143] SCREEN COLOUR SUBROUTINE (2745)
1610 :[141] 2750
1620 :[153]" PEEKORDER AND LENHARACTERS FROM SET 3
1630 :PRINT" AND [194]ACKGROUND FROM SET 1
1640 :[129] X [178] 1 [164] 10000:[130] X
1650 :BO[178]11:S1[178]2:BA[178]0:S2[178]1:C[178]6:S3[178]2:CC[178]31
1655 [143] SCREEN COLOUR SUBROUTINE (2745)
1660 :[141] 2750
1670 :[153]" PEEKORDER AND LENHARACTERS FROM SET 2
1680 :PRINT" AND [194]ACKGROUND FROM SET 1"SPC(55)"[198]OR THE [193][198][212][197][210] [205][201][196][206][201][199][200][212][160][194][193][210] GANG"
1690 :FOR X = 1 TO 10000:NEXT X
1700 :BO=0:S1=1:BA=4:S2=3:C=1:S3=5:CC=5
1705 REM SCREEN COLOUR SUBROUTINE (2745)
1710 :GOSUB 2750
1720 :PRINT" [198]ROM THE TOP TO THE BOTTOM OF THE SETS.
1730 :[153]" ATNND THE MIDDLE TO BOOT.
1740 :FOR X = 1 TO 10000:NEXT X
1750 :BO=1:S1=5:BA=4:S2=3:C=0:S3=1:CC=144
1755 REM SCREEN COLOUR SUBROUTINE (2745)
1760 :GOSUB 2750
1770 :PRINT" [211][197][216][217][160][197][200]?
1780 :[153]" MID$UST THE PEEKORDER AND"[166]21)"LENHARACTERS REVERSED.
1790 :FOR X = 1 TO 10000:NEXT X
1795 REM SUMMARY PAGE 1
1800 :PRINTCHR$(147);:POKE 53280,14:POKE 53281,6:PRINTCHR$(154):PRINTSPC(55)
1810 :PRINTCHR$(18)" [211][213][205][205][193][210][217][160]"CHR$(146)SPC(100)
1820 :PRINT"[212]HAT WAS A SMALL SAMPLE OF SCREENS
1830 :[153]"  AVAILABLE, 17 OUT OF 4096!   (null)OO BAD
1840 :PRINT"  YOU COULDN'T READ THE RISQUE POETRY.
1850 :[153]"  (null)LEFT$ATN(null)? (null)LEFT$VAL(null)VAL? (null)EEK AND YE SHALL FIND.
1860 :PRINT"    [198]OR NOW, WE SHOULD PUT IT TOGETHER
1870 :[153]"  SO THAT YOU CAN COPY SOME NOTES. CHR$OT
1880 :PRINT"  YOUR PAPER & PENCIL READY? [198]IRST THE
1890 :[153]"  (null)ATNPEEK(null)VAL, AND THEN THE PERTINENT RULES.
1900 :PRINTSPC(86)"  [198]IRE WHEN YOU ARE READY!
1905 [143] READ-CONTINUE SUBROUTINE (2495)
1910 :[141] 2500
1915 [143] COLOUR TABLE SUBROUTINE (2545)
1920 :[141] 2550
1925 [143] READ-CONTINUE SUBROUTINE (2495)
1930 :[141] 2500
1935 [143] TABLE USES RULES SUBROUTINE
1940 :[153][199](14):[141] 2850
1945 [143] READ-CONTINUE SUBROUTINE (2495)
1950 :[141] 2500
1955 [143] END OR TEST PROGRAM CHOICE
1960 :[153][199](147)"    (null)OU MAY NOW END THE PROGRAM OR, IF
1970 :PRINT"  YOU HAVE THE RIGHT DISKETTE IN YOUR
1980 :[153]"  DRIVE, LET ME CALL UP THE TEST PROG-
1990 :PRINT"  RAM. [212]HEN YOU CAN DESIGN YOUR OWN
2000 :[153]"  SUPERSCREEN.
2010 :FOR T = 1 TO 7000:NEXT
2020 :PRINT"  [195]ARE TO BE A DESIGNER? Y/N";
2030 :GET A$:IF A$ = "" THEN 2030
2040 :IF A$ ="N"THEN 2070
2050 :IF A$ <>"Y"THEN 2030
2060 :LOAD"0:COLR SELECTOR.C",8
2070 :PRINTCHR$(147):POKE53280,12:POKE53281,11:PRINTCHR$(153)
2080 :PRINT""SPC(10);
2090 :PRINT" [195][204][193][211][211][160][196][201][211][205][201][211][211][197][196].[160]"
2100 :FOR T = 1 TO 7000:NEXT
2110 :PRINTCHR$(147);:POKE53280,14:POKE53281,6:PRINTCHR$(154);
2120 :END
2490 END
2495 REM READ TIME - CONTINUE
2500 :FOR TM = 1 TO 2000:NEXT TM
2510 :PRINT"";
2520 :PRINTCHR$(18)" PRESS SPACE BAR TO CONTINUE "
2530 :GET A$:IF A$ <> " " THEN 2530
2540 :RETURN
2545 REM COLOUR TABLE SUBROUTINE
2550 :PRINTCHR$(147)CHR$(142)SPC(120)
2560 :PRINT"[195][195][195][178]";:FOR L = 1 TO 36:PRINT"[195]";:NEXT L
2570 PRINT"SET[221]  CONFLICTING COLOURS WITH NUMBERS
2580 :[153]"LENLENLEN(null)";:[129] L [178] 1 [164] 36:[153]"LEN";:[130] L
2590 :[153]" 1 PEEKBLACK (0)
2600 :PRINT"[195][195][195][219]";:FOR L = 1 TO 36:PRINT"[195]";:NEXT L
2610 PRINT" 2 [194]RED (2), BLUE (6), BROWN (9)
2620 :[153]"   PEEKGRAY 1 (11)
2630 :PRINT"[195][195][195][219]";:FOR L = 1 TO 36:PRINT"[195]";:NEXT L
2640 :PRINT"   [194]PURPLE (4), GREEN (5)
2650 :[153]" 3 PEEKORANGE (8), LT.RED (10)
2660 :PRINT"   [194]GRAY 2 (12), LT.BLUE (14)
2670 :[153]"LENLENLEN(null)";:[129] L [178] 1 [164] 36:[153]"LEN";:[130] L
2680 :[153]" 4 PEEKCYAN (3), YELLOW (7), LT.GREEN (13)
2690 :PRINT"   [194]GRAY 3 (15)
2700 :[153]"LENLENLEN(null)";:[129] L [178] 1 [164] 36:[153]"LEN";:[130] L
2710 :[153]" 5 PEEKWHITE (1)
2720 :PRINT"[195][195][195][177]";:FOR L = 1 TO 36:PRINT"[195]";:NEXT L
2730 :RETURN
2745 REM SET BORDER COLOUR
2750 :PRINTCHR$(147):POKE 53280, BO
2755 REM SET BACKGROUND COLOUR
2760 :POKE 53281, BA
2765 REM SET CHARACTER COLOUR
2770 :PRINTCHR$(CC)
2775 REM DISPLAY COLOUR NUMBERS
2780 :PRINTCHR$(147);"        COLOURS   "
2790 :PRINT" BORDER     =";PEEK(53280) AND 15" SET ="S1
2800 :PRINT" BACKGROUND =";PEEK(53281) AND 15" SET ="S2
2810 :PRINT"";" CHARACTERS ="C" SET ="S3
2820 :RETURN
2845 REM TABLE USES RULES SUBROUTINE
2850 :PRINTCHR$(147)SPC(46)CHR$(18)" [210][213][204][197][211][160][198][207][210][160][213][211][201][206][199][160][212][200][197][160][212][193][194][204][197] "CHR$(146)
2860 PRINT" (1) [193] SINGLE COLOUR CAN NOT BE USED
2870 [153]" FOR BOTH BACKGROUND AND CHARACTERS."[166]44)
2880 [153]" (2) LENOLOURS OF THE SAME SET SHOULD NOT
2890 PRINT" BE USED FOR BACKGROUND & CHARACTERS & "
2900 PRINT" CAN BE POOR FOR BORDER AND BACKGROUND."SPC(41)
2920 PRINT" (3) [212]WO COLOURS OF ONE SET CAN BE USED
2930 [153]" FOR BORDER AND CHARACTERS IF SEPARATED
2940 PRINT" BY A BACKGROUND COLOUR OF ANOTHER SET."SPC(41)
2960 PRINT" (4) [206]O DIFFICULTY WILL BE ENCOUNTERED
2970 [153]" IF COLOURS FROM THREE SETS ARE USED."[166]43)
2980 [153]" (5) (null)SE THE LOW NUMBERED SETS FOR THE
2990 PRINT" DARKER SCREEN SHADES AND THE HIGHER
3000 [153]" NUMBERED SETS FOR THE BRIGHT SCREENS.
3010 RETURN